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Edit history for Version 1 of PACKARITH 


1-00) Or Original LEB 01-Aug-81 
Chen e os etetnee bere" erence se to Ge and added PSECT declarations 
an 

1-003 Chan ed FPSECT declarations to to use e aS. prefixes instead of STR$ 

pre Also changed code to now return a status instead of 


4 


si Me a Supplied default info on parameters to the routines 
and changed the order of some _the input parameters to conform 
£9 the he ASHE standard. LEB EC-81 
1-004 F pes the .* 9 LIBSSCVT_STR_ PACK -R9 so it doesn’ § use over| ope! 7 
ands. milar fix was made to U1 BSSMUL -PACK_R10. 2. 
Added OF SsUNPACK “30. RB and LIBS$$SCVT_AP_P entry points. RNH 21-Jan-82 
BASIC V2 J go By was s date code was written - but not signed in until 
2.0 would ship 
1-006 sper et} ccurrences of the fengguiny instruction format - 
(MOV g R8),R8) to (MOVAQ a#-8(R8) to get around the problem 
of getting incorrect results when the module is pulled into a 
shareable image. LEB 1-DEC- 
1-007 Changed CLRQ instruction in routine LIgseny, PACK_R10 to a 
MOVP instruction so that a valid packed digit can be ensured 
during further arithmetic "eperet tone. While this worked fine 
on most VAX processors, re ancounterge different results on 
yan due to the CLRQ usa LEB 25-Feb-8 
08 Fixed bug in (fesssua” PA K “RB. STAN 15-Jun-1984 
09 Moved packed decimal Constants into a code psect and eliminated OWN 
storage to allow for demand-zero Linker compression. MDL 6-Jul-1984 
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-SBTTL LIBSSCVT_STR_PACK_R9O Converts a string to packed array 


;++ 
; FUNCTIONAL DESCRIPTION: 


This routine converts a string of decimal digits to an array of 
packed decimal values. Each entry in the array contains 15 digits. 


; FORMAL PARAMETERS: 

; addr.rnu.r R6 Address of string of decimal digits 
num_digs.rl.v R? Number of eteits in string 
num_ents.rl.v R8 Number of entries in array 
retn_str.wp.r R9 Address of packed decimal array 


: IMPLICIT INPUTS: 
: -NONE 


DOOQDOCOOOOOOCOCOOSOOOCO wYO 


; ROUTINE VALUE: 

: -NONE 

; COMPLETION CODES: 

; “NONE 

; MACROS: 

: NONE 

; SIDE EFFECTS: 
-NONE 
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38 323 
je 6|OCUF j 3; For reference: 
18 «4154; Address of string 
1B «6155 ; Number of digits in string 
318 128 ; R8 Number of entries in array 
18 157; Rg Address of packed decimal array 
SB i 
18 160 LIBSSCVT_STR_PACK_R9:: 
SE 08 C2 1B 161 SUBL2 S ; allocate 8 bytes for a temp. 
FF A647 «SE 001 16¢ MOVAB =1(R6)CR7), 
28 FF i 7E ; 16 MOVAQ mt Nip d CRB ns. 
0002 56 OF 37 f 164 1$: ACBL ad , Rb, 
0004 59 08 #58 «SOF! § 5 196 2$: ACBL R8, #8, RO, 3$ 
5E 08 9 Bae8 1 Aoste #8, SP ; deallocate temp space. 
OF QO0000000'GF F1 “. OF 26 003A 169 3$: CVTTP #15, -15(R6), G*LIBSAB_CVTTP_U, #15, -8(R9) 
—O (11 Si 179 BRB 1$ 
oH BR ee at, 
OF Q0000000'GF F1 A6 + 26 doce 174 CvTTP 7, -15(R6), G*LIBSAB_CVTTP_U, #15, (R9) 
57 OF 57 C3 0059 175 SUBL3 R7, #15, R7 
6— OF 00 69 OF 57 ‘FB O005D 176 ASHP R7., ne fR9). #0, #15, (SP) 
oT ie ie Re gh 
FFFS 59°" OB 58 Fi COE iho Os; ACO. RBS ABE RO, “SS 
5E 08 CO 0074 ~ 181 ; ADDL2 #8. SP- : ; deallocate temp space. 
05 0077 HY RSB 
0078 18 
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4 ! 5 -SBTTL LIBSSCALC_D_R7 Calculates normalization factor 
7 189 s+ 
f ! 3 ; FUNCTIONAL DESCRIPTION: 
7 190 ; This routine calculates the normalization factor, d = int(b/(v1+1)) 
f 13) : NOTE: This routine returns RO = 1 is d = 1 and O otherwise. 
07 198 3; FORMAL PARAMETERS: 
07 194 ; addr_vi.rp.r R6 Address of v1 
44 132 : addr_d.rp.r R7 Address of d 
14 139 3 IMPLICIT INPUTS: 
07 198 ; NONE 
07 199 ; 
07 00 ; ROUTINE VALUE: 
007 01; NONE 
007 8 3 
Bae $0 ; COMPLETION CODES: 
07 04 ; -NONE 
007 05 ; 
007 § 3; MACROS: 
007 07 ; -NONE 
007 08 ; 
0078 09 ; SIDE EFFECTS: 
p078 210 ; -NONE 
007 211 :-- | 
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7 13 ;+ 
7 14; For reference: 
07 15 ; 
07 16; 
07 17 3- 
$3 i§ LIBSSCALC_D_R7 
 «. @ 078 20 sost 
6— 10 66 OF 9B AF 01 3] 0076 3 ADDP6 
OF FF76 CF 10+ 6€ 19 7 OB IvP 
67 OF 8A AF oi 2 age : cnene 
20 0 36 83 § MOVB 
E C 4! 097 1$ ADDL 
0 O9A 8 RSB 


B 14 . 
Calculates normalization 6-SEP- 
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L 


RG Address of v1 

R Address of d 

#12, SP ; Allocate space on stack for 
§ intermediate results 

#1, ONE, #15, (R6), #16, (SP) 3 RESULT = vi1+1 

wié, (SP), #16, RADIX, #15, (R7): (R7) = d, RO = 0 

#1, ONE, #15, (R7) ; Check for d = 1 

1$ 3; d neq 1, return status = 0 

#1, RO ; Return status = 1 

wie, S. ; Deallocate stack 


L IBSSPACKARITH D ARITH 
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COMPUTE A QUOTIENT DIGIT 6=SEP=1 


~SBTTL LIBSSCALC_Q_R9 
* 
FUNCTIONAL DESCRIPTION: 


The in 
will only be attempted twice. 
— PARAMETERS: 

riovi.rp.r 


addr~ _u a r & 
flagir R8 


addr_qj.wp.r R9 
IMPLICIT INPUTS: 
-NONE 


PREP EE EE PWN 


MEWS OO NAU EWN O ODNAU ESWC OONAULS WIN 


Bete Se Be Be Be Be Be Ge Be Be Se Be Ge Be Ge Ge Ge Se Se Ge Se Ge Se Se Ge Se Sse Se Se Se Se Se Se 
aa 


ROUTINE VALUE: 
-NONE 


COMPLETION CODES: 
LIBS _INVARG 
“558 *RORMAL 


MACROS: 
-NONE 


SIDE EFFECTS: 
~NONE 


1986 99:00:38 ECTQNTL. SRESCIBPRARIT .MAR; 1 


COMPUTE A QUOTIENT DIGIT 


This oh calculates an approximation to etngie rr di ie 
Wc gete may not be accurate enou 
case, the initial value is ‘‘adjusted’’ by one. 


Ys lk latt 
e ad Saleaal presses 


Address of v(1) 
age of u(j) 
- A gonserd value indicates 


a9 hat the 
i} sor, B, consists of only one 15 di 


Page ds 


it chunk 


and consequently an abbreviated algorithm for 


computing q(j) can be used. 
Address of q(j) 


Ll 
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98 7 
oe é i+ 
9B 8 ; The oy Levens is the equation that will calculate 
98 0 ; a quotient d f'; 
098 71 3; g = (uj) *RADIX + ulj+1))/v01); 
98 if 3; For reference: 
98 7 3 RG Address of v(1) 
98 74; 8 Address of u(j) 
098 75 ; R8 flag - A non-zero value indicates that the divisor, B, 
Boos 76 ; consists of only one 15 digit chunk, and conse- 
098 m3 quently an abbreviated algorithm for computing 
443 oe : q(y) can be used. 
9B (9 3 R9 Address of q(j) 
0098 4 
0098 1 LIBSSCALC_Q_R9:: 
SE 20 C2 0098 BS s0sC #32, SP 3; Allocate stack space for 
O9E 8 3 intermediate calculations 
6E 1€ 0 7 OF OF 8 09 84 ASHP #15, #15, (R7), #0, #30, (SP) 3; (SP) = ulj)*radix 
6€ 1€ 08 A? OF 99 OA 85 ADDP4 #15. 8(R7) ,#30, (SP) + RESULT = u(j)sradix + u(j+1) 
67 66 OF OAB 86 CMPPS #15, (R6), (RZ) :; Compare u(j) and v(1) 
08 12 OOAF 87 BNEQ : 
69 FFS3 CF OF 34 0081 88 MOVP #15, RADIX_M_1, (R9) 3; Q = radix - 1 
07 +11 0087 89 BRB 2$ 
69 OF 6€ 1E 66 OF 27 O0B9 90 1$ DIVP #15, (R6), #30, (SP), #15, (RO) ; (RI) = Qq 
58 05 00CO 91 2$ TSTL R8 3; see if adjustment is needed 
6D 12 45 38 BNEQ RETURN ; R8 = 0 means no adjustment 
00C4 94 MULP #15, (RO), #15, (Rb), #30, 16¢SP) 
OQOCC 295 ; 16(SP) = V1 = q*v(1) 
OOCC 296 SUBP4 #30, 16(SP), #30, (SP) 3; (SP) = Ul = 
00D2 344 $ u(j) *radix+u(i+1)-Vv1 
00D2 98 ASHP #15, #30, (SP), #0, #30, 16(SP) ; 16(SP) = _ = Ul*radix 
OODA 99 ADDP4 #15, 16(R7), #30, 16(SP5 : 16(SP) = U2tu(j+2) = U3 
00E1 300 MULP = #15: (R9), #15, 8(R6), #30, (SP): (SP) = V2 = qev(2) 
00E9 301 SUBP4 #30. (SP). #30, 16(SPS > 16(SP) = U3 = V2 
OOEF {1 GEQ RETURN 
OOF 1 0 
OOF 1 04 ; 
OOF 1 05 ; Quotient digit must be adjusted. 
OOF 1 06 ; 
OOF 1 32 
OOF 1 08 SUBP4 #1, ONE, #15, (RI) 3; (RID = Qe 
OOF8 309 SHP #15, #15, (RO), #0, #30, (SP) : (SP) = v(1)*radix 
OFF 10 ADDP4 #15, 8(R6), #36, (§P) ; (SP) = v1) *radix+v(2) 
105 11 ADDP4 #30, (SP), #30, 16(SP) ; 16(SP) = new test value 
108 \¢ GEQ RETURN 
10D 1 
H's 14 ; 
190 1? ; Quotient digit must be adjusted again. 
10D i$ 
10D 18 SUBP4 #1 = #15, (RI) 3 (RI) = q - 1 
114 319 ASHP —so#15, #15, (Rb), WO, #30, (SP) : (SP) = v1)*radix 
118 0 ADDP4 #15. B(RE), #30, (SP) > (SP) = v(1)*radix+v(2) 
121 1 #30, (SP) 0, 16¢SP ; 16(SP) = new test value 
1 4 ¢ EQ RETURN 
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; If adjustment needs to be made more than twice, something is wrong. 


50 00000000" 8F eext #LIBS_INVARG,RO 


PJ 
m 
“4 
c 
zDD 
2 


: ADDL #32, SP 
MOVL #5S$_NORMAL ,RO 


5E 2 ; Deallocate stack space 
50  00000000'8F 
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p++ 
; FUNCTIONAL DESCRIPTION: 


This routine is used to adjust the intermediated results of the divi- 
sion algorithm. In particular when the difference of v(j)v(j+1)... 

v(j+m) and qtu(1)u(2)...u(m) is negative, this routine is called to 

subtract one from the value of q and add u(1)u(2)...u(m) to the 

previously mentioned difference to get a positive result. 


FORMAL PARAMETERS: 


b_chunks.rl.v R6 Number of chunks in B ( i.e. the value of m)/ 
Maximum value of index 
addr_ul.rp.r R7 Addr of u(j) 
addr_vi.rp.r R8 Addr of v(1) 
addr_q.mp.r R9 Addr of q / carry flag 
IMPLICIT INPUTS: 
“NONE 
ROUTINE VALUE: 
-NONE 
COMPLETION CODES: 
“NONE 
MACROS: 
-NONE 


SIDE EFFECTS: 
-NONE 
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- ey LIBRTL.S K 
; | pew TSSSAD JUST Q Ro e786 eats 90: 8 98 IBRT REIL IBPKARIT.MAR;1 . A$ Sy 
13¢ 70 3+ 
13¢ 71 ; For reference: ] 
13¢ oe : R6 Number of chunks in B ( i.e. the value of m) / Maximum 4 
13C 73; value of index L 
13¢ 7% ;: R7 Addr of u(j+1) LI 
13¢ 75 ; R8 Addr of v( ) Ll 
13¢ 6 : R9 Addr of q/ carry flag LI 
13¢ 6-377 :- Ll 
13¢ 78 Ll 
13¢ 79 LIBSSADJUST_Q_R9:: Ll 
69 OF FEDO CF 01 22 O1 80 SUBP4” w#i, ONE, #15, (R9) : Decrement 3 Ll 
59 dé 14 81 CLRL ; Set carry flag to 0 LI 
= ° , et upper index value 
56 FFFFFFFS 9F 46 ve 145 mOVAa of BLR6], R6 Set ind L $ 
0D 59 00 #3 Siar 5a 1$: BBCC ay R9, 2$ ; Check and clear carry flag Ll 
6746 OF FEC2 CF 01 20 0133 85 ADDP4 — #15, (R7)CR6] : Add in carry from Last iteration Ll 
03 1C 0158 86 BVC 28" ; Branch if no carry ON 
59 01 90 9130 87 MOVB Set carry flag RA 
6746 OF 6846 OF 20 0160 388 2$ ADDP4 nS, Re RB) CROJ. #15, (R7) ERG RA 
0167 89 ; Add u(m=i) to vij+m-i) RE 
03 1C 0167 90 BVC 3$ ; Branch if no carry SS 
59 01 90 0169 91 MOVB #1, R9 ; Set carr x, flag ze 
FFD9 56 =FFFFFFF8 8F 00 4 81$¢ 38 3$ to #0, #-8, R6, 1$ ; Loop unty chunks are processed 
0177 39% 
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96 .SBTTL LIBSSMUL_PACK_R10 MULTIPLY PACKED STRINGS 


p++ 
; FUNCTIONAL DESCRIPTION: 


DNA 
oO 


WONAULS WO Oe 


9 

This routine multiplies an ro of 15 digit packed decimal values 
by al et packid decimal multiplier and stores the result in an | 
array of 15 digit packed decimal values. The size of the result 
array is either the same as the size of the multiplicand or one entry 
larger, depending on the passed parameters 


177 
i} 
177 
177 : 
177 =©400; 
177 «401; 
177 «©6402; 
177 «©6403; 
177 404; 
177 Pt ; 
\ie : : product <== multiplicand * multiplier 
177 20 ; FORMAL PARAMETERS: 
177 =~409 ; mulpr.rp.r Rg Addr of the packed multiplier 
0177 «=410 ; mulpd.rp.r R Addr of the packed multiplicand array 
177 6411 3 lLen_mulpd.rl.v R8 Length of packed multiplicand array 
177 716 5 lLen_prod.rl.v RG Length of packed product array 
Bice a7 3 prod.wp.r R10 Addr of the packed product array 
0177 «9415 ; IMPLICIT INPUTS: 
0177 218 : -NONE 
0177 «417; 
0177 $18 ; ROUTINE VALUE: 
81g! 419 ; -NONE 
177 420; 
p12! 421 ; COMPLETION CODES: 
177 & $ 3 -NONE 
0177 +423; 
0177 «424 ; 
0177 «+425; -NONE 
0177 426; 
0177 427 ; SIDE EFFECTS: 
0177 428; -NONE 
0177 429 jee 


| 
| 
| 
| 
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6A48 =10 AE 


FFCF 58 =FFFFFFFS 8F 
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13 
§ 3; For reference: 
: Rg Addr of the packed multiplier 
4; R Addr of the packed multiplicand array 
2 3 R8 Length of packed multiplicand array 
§ ; R9 Length of packed product array 
; 3 R10 Addr of the packed product array 
QO LIBSSMUL_PACK_R10:: 
1 SUBL #32, SP ; Allocate stack space for intermediate 
3 resu 
; SUBL R8, RO ; RO = difference in product and 
4 3 multiplicand array Lengths 
5 MOVAQ af-8C(R8), RB ; RB = Largest permissible index value 
§ MOVP #15,ZERO, (SP) $ ssi CARRY = 0 for first iteration 
1$: MULP = #15, (R65, #15, (R7)CRBI, #30, 8(SP) 
8 ; 8(SP) = the product of the ith entry 
g 3 of the multiplicand and the 
0 : multiplier. 
1 ADDP4 #15, (SP), #30 ; Add in carry from previous iteration 
é MOVP #15; 16(SP), < : Store low order 15 digits of this 
s iteration in the ith entry of the 
4 : product array 7, 
5 MOVB #*xX0C, 16(SP) ; Add a low order zero and plus sign to 
6 ; to high order digits 
7 ASHP #-1, #16, B(SP), #0, #15, 24(SP) 
8 MOVQ 24(SP), (SP) 
9 ; CARRY = High 15 digits of this 
0 s iteration 
1 ACBL #0, #-8, RB, 1$ ; Loop until all entries in the multi- 
¢ 3 plicand array have been processed 
TSTL R9 ; Check if the carry from the Last iter- 
3 ation should be returned with the 
3 product 
BEQL 2$ 3 : 
7 MOVP #15, (SP), (R10)CR8) ; Return carry digits 
2s: ADDL #32, SP ; Deallocate stack space 
9 RSB 3; Return 
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494 rif -SBTTL LIBSSSUB_PACK_R8 SUBTRACT PACKED STRINGS 
109 474 5 44 
434 iS ; FUNCTIONAL DESCRIPTION: 
1¢9 253 3 This routine subtracts one array of packed decimal values from another. 
109 $78 s The Lengths of the input strings are assumed to be equal. 
10c9 479 ; erence <-- difference - subtrahend 
109 480 ; NOTE: This routine returns RO = 1 if the difference is less than zero 
13 ? 13 and 0 otherwise 
109 css ; FORMAL PARAMETERS: 
109 484; num_digs.rl.v R6 Number of 15 digits chunks minus one in subtrahend 
01C9 re Hi ; addr_mind.rp.r R? Address of minuend (difference) array 
Bice rt} 3 addr_subd.rp.r R8 Address of subtrahend array 
01C9 488 ; IMPLICIT INPUTS: 
3iee 489 ; “NONE 
109 «490 ; 
01C9 491 ; ROUTINE VALUE: 
01C9 $36 3 -NONE 
01c9 493; 
0109 494 ; COMPLETION CODES: 
gic8 495 ; -NONE 
109 496 ; 
0109 497 ; MACROS: 
0109 498 ; -NONE 
0109 499 ; 
01C9 500 ; SIDE EFFECTS: 
01¢9 501 ; “NONE 
01¢9 502 ; 


a — 
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42609 LIBSSSUB_PACK_R8 SUBTRACT PACKED STRINGS 6=-SEP-1984 0: 3:98 YMORTL. SReICIOPKARIT MAR: 1 
1c 4 ;+ 
1¢ 5 ; For reference: 
1¢ § 3 RG Number of 15 digits chunks minus one in subtrahend 
1¢ $ R Address of minuend (difference) array 
13 8 3 R8 Address of subtrahend array 
3 a 
56 00000000 9F46 rf 1¢9 1 MOVAQ gr0cnéd. R6 ; Compute Largest index value 
oe 7 1D 1 BRB $ 3; Not necessary to check for borrow 
1D 14 : on first iteration 
38 D 1D 15 1$ TSTL R 3; Check for borrow on Last iteration 
1 1D 1§ BEQL 3; Branck if no borrow 
6746 OF  FES3E CF Bt § 1D 1 SUBP4 #1, ONE, #15, (R7)CR6]_ ; Process borrow. 
6746 OF 6846 OF O1DF 18 2$ supP4 #15, (R8)CR6S, #15, (R7)ER6) 
1E6 1 ; Subtract one 15 digit chunk. Note 
1€6 520 3 that RO = 0 after execution. 
02 1D OE é 1 BVS 3$ ; Overflow could be set if we borrowed 
O1E ¢ 3 a 1 from a O and then further 
OIE 5 ; subtracted a 9. This results in a -0 
O1E 524 ; (with the N bit cleared and V bit set). 
Bie 525 : In that case, we still want to borrow. 
OA 18 OE 526 BGEQ 4$ ; Branch if no borrow is necessary 
6746 OF E11 CF 10 20 OFA 527 3$ ADDP4 #16, RADIX, #15, (R7)CR63 
O1F2 528 ; Adjust last diference to make it >= 0 
O1F2 44 3; Note that ADDP4 sets R) to 0. 
50 D6 O1F2 530 INCL RO ; Set borrow flag (RO <- 1) 
FFDS 56 FFFFFFF8 8F O00 F1 OFS # 531 4$ ACBL #0, #-8, R6, 1$ ; Loop until all chunks are processed 
0 OE 333 mp 


| 
| 
LIBS$SUB_PACK_RB: : 
| 
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-009 LIBSSROUND_R7 Rounds packed decimal arr yes et 4 LIBRTL.SRCIJLIBPKARIT.MAR;1 (18) 
-SBTTL LIBSSROUND_R7 Rounds packed decimal array 


+ 
FUNCTIONAL DESCRIPTION: 


This routine rounds an array of packed decimal values to a given 
value of significant digits 


eae Be ra daeage 


1FF 5 
1FF : 
1FF ; 
1FF 8 5 
1FF : 
1FF 40 ; 
1FF 41; 
iff 8e8 
IFF 44 : r_dig.rp.r R6 Address of 15 digit chunk in which rounding 
° occurs 
1FF *$ 5 position.rl.v R7 Position within low order chunk at which the 
gare Z : rounding occurs 
1FF rk: > IMPLICIT INPUTS: 
a 29 ; -NONE 
O1FF 33¢ t ROUTINE VALUE: 
SIRE aaa — 
O1FF 555 : COMPLETION CODES: 
OFF 228 3 -NONE 
OFF 557; 
O1FF 558 : MACROS: 
SIEE 380 os 
O1FF 561 ; SIDE EFFECTS: 
O1FF 36¢ : -NONE 
O1FF 563 :-- 


} 
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4-009 LIBSSROUND_R7 Rounds packed decimal arr pao 7 90:09:38 YTOR TL. SREILIBPKARIT.MAR: 1 . (19) 
1FF 65 ;+ 
1FF 96 ; For reference: 
1FF 67 ; Rg Address of 15 Stgte chunk in which a te occurs 
1FF 68 ; R Position within low order chunk at which the 
1FF 4 3 rounding occurs 
1FF 0 ;- 
1FF 71 
1FF ye LIBSSROUND_R7:: 
5E 08 C2 OFF 7 SUBL #8, SP ; Allocate stack space for 
0 9s 74 3 intermediate results 
OF OO FEIT CF 01 +t F8 0 be 75 ASHP R7, #1, FIVE, #0, #15, (SP) ; Get value to add to 
0 $8 A 3 array to effect rounding 
66 OF 6E€ OF 20 0 7 ADDPS #15, (SP), #15, (R6) ; Add rounding value to array 
oc 1¢ 8 1 78 BVvC 2$ : If no carry. we are done 
56 608 cs 1 79 1$: SUBL #8, R6 ; Get addr of next higher chunk 
66 =F FEOO CF 01 20 021 0 ADDP4 #1, ONE, #15, (R6) ; Propagate carry 
FS «1D 0 i 2 1 BVS 1$ : If necessary continue to 
5E 08 CO . foo | : 2$: ADOL #8, SP r Deal loca e stack space 
05 0221 584 RSB 
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p++ 
; FUNCTIONAL DESCRIPTION: 


This rqut ine converts an array of packed decimal Loe to a string 
of decimal digits. Each entry in the array contains 15 digits. 


FORMAL PARAMETERS: 
array.rp.ra R Address of packed decimal array 
array_ent.rl.v R Number of entries in array 
ret_string.wt.r R8 Address of return string 


IMPLICIT INPUTS: 
-NONE 
ROUTINE VALUE: 
~NONE 
COMPLETION CODES: 
~NONE 
MACROS: 


-NONE 


2 
5 -SBTTL LIBSSCVT_PACK_STR_R8 Converts a packed array to string 
5 
2 SIDE EFFECTS: 

§ -NONE 
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Re Sth -R8 Converts a packed a "8 : Pa} 984 99:59 8 CTORTL. SACICIOPRARYT MAR: 1 ee 3) 


& 
For reference: 
RG Address of packed decimal array 
? Number of entries in array 
Address of return string 


Sete Ge Ge Ge Ge 


#TS, R3 
t ; R3 = RB + 15*R7 
MOVAQ af- =8CR 


” 
1$: CVTPT #15, Ras CR?I, G*LIBSAB_CVTPT_U, #15, -15(R3) 


ACBL #0, #-8, R7, 1$ :\Decr counter of # of chunks 


5 

1 

ts 
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5 LIBSSCVT_PACK_STR ye 
4 AULL3~ 
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++ 
; FUNCTIONAL DESCRIPTION: 


Hi09:98 


Unpacks 


AX/VMS Macro V04-00 
LIBRTL.SRCJLIBPKARIT.MAR; 1 


SD descripter 


Page 3 


This rountine unpacks the information in an SD descripter and converts 
the packed decimal string to a leading separate string 


; FORMAL PARAMETERS: 


OUTPUT: 
Length.ww.r 
exp.wb.r 
SIF 


pointer.ml.r 


0 ; IMPLICIT INPUTS: 
-NONE 

0 6 ; ROUTINE VALUE: 

S ° -NONE 

02 6 COMPLETION CODES: 
BS 6 -NONE 

0 66 

02 66 MACROS: 

0 66 -NONE 

0 66 

0 664 ; SIDE EFFECTS: 

02 665 -NONE 

02 666 ;-- 


Address 


Address 
Address 
Address 


Address 
Address 


of SD descripter 

of LENGTH parameter 
of EXP parameter 

of SIGN parameter 


of pointer to temp storage/ 
of pointer to return string 


1 
3) 


— 
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52609 LIBSSUNPACK_SD_R8 Unpacks SD descripter 6-SEP-19 198 90: 3:99 YTORTL. She SLIBPKARIT.MAR: 1 ° Bey 3) 
4 3 | A 
: ees ; For reference: | ‘ 
4 671 ; RG Address of SD descripter Cr 
& of¢ 3 RS Address of LENGTH parameter Ch 
48 673; R Address of EXP parameter CC 
4 674 ; # Address of SIGN parameter DE 
4 675 ; RB Address of pointer to temp storage/ Hi 
; o76 ; Address of pointer to return strin 4 
48 678° RE 
0 4 695 LIBSSUNPACK SD_R8:: 3} 
67 94 024 680 CLRB_ ~ (R7) ; Set SIGN to 0 $$ 
00 B88 64 0484 64 08 O246A 681 CVTPS (R4), a4(R4), (RO), a(RB); yo B packed to separate 3 
03 18 0 51 68¢ BGEQ =s«1$ ; Branch if >= 0 SS 
67 4 3 53 6 MOVB #1, _(R7) ; ; 
01 A3 64 30 0256 684 1$: SKPC = ss #*X30, (R4), 1(R3) : Skip over leading zeros and sign SS 
65 50 80 0258 685 MOVW RO, (R5) ; Return actual length 
68 51 00 8 5E 686 MOVL Ri, (R8) ; Return addr of first non-zero digit 
66 08 AS 90 0261 687 MOVB 8(R4), (R6) ; Return EXP = SCALE 
05 0265 688 RSB 

0266 689 * 


Set SIGN to 1 S$ 
| 
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Converts packed array t 6-SEP-19 


.SBTTL LIBSSCVT_AP_P_R8 


+e 
FUNCTIONAL DESCRIPTION: 


This routine converts an array of packed decimal values to a single 
value specified by and SD descripter. 


overflow. 


; FORMAL PARAMETERS: 


INPUT: 
rnd_trunc.rb.v 
arrary.ma.v R5 
Length.mb.v R6 
R7 

OU pat 
PUT: 
desc.rp.r RG 
IMPLICIT INPUTS: 

-NONE 


ROUTINE VALUE: 
-NONE 
COMPLETION CODES: 
-NONE 

MACROS: 


-NONE 
SIDE EFFECTS: 
-NONE 
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Converts packed array to single value 


This routine may signal packed 


Round/trunc indicator 
acked decimal array 
Numver of elements in arrary 

Shift factor for obtainin 
Sign indicator 1 for = an 


Address of SD descripter 
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Round/trunc indicator 

Address of SD descripter 

Pointer to packed decimal array 
Number of elements in arrary 

Shift factor for obtaining result 
Sign indicator 1 for - and 0 for + 


IBSSCVT_AP_P_R8:: 


#40, SP Allocate 10 ees on the stack 
36($P) Save current PS 
M*XFF7F, 36(SP) Save current DV bit 
a*x Turn off decimal overflow reporting 
a#-8CR6), R6 : Initialize offset into array 

: Initialize overflow indicator 
R7, #15, (RS5)CR6], R3, #31, 4(SP) 


; Shift 1st chunk and store 
#8, RE ; Decrement number of chunks 
4 3; Branch if none left 
o5 


, R7 ° Adiyet shift count 
7, #15, (R5)CR6], #0, #31, 20(SP) 


; Shift next chunk and store 
; Branch if no overflow 
; Set overflow indicator to 1 
3; Add current 15 digit chunk to result 
; Branch if no overflow 
) 3; Set overflow indicator to 1 
; Branch if more chunks left 
; Check for correct sign ; 
: Branch if result should be positive 
3 ghenge sign to negative 
» 04(R4) 


z= DRBBwezeanr 
COOPMWOO— MW ww 


(SP) 
» #31, 4¢0SP), #0, (R4) 


Store result as indicated by descriptor 
Branch if no overflow 

Set overflow indicator to 1 

Check if caller had DV bit set 

Branch if overflow repert ing not on 
Move overflow indicator to RO 

Restore DV flag 

Deallocate stack storage 

Return 


RW Own 
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Symbol table 


fre 129 R 
FIV ve 9 9R 
LIB rate ae -O_R9 f RG 
LIBSSCALC_D_R7 RG 
LIBSSCA ates -R9 RG 
LIBSSCVT_AP-P_R8 8 RG 
Ritt! “PACK: STR -R8 RG 
LIBSSCVT_STR_PACK_R 0 8 RG 
LIBSSMUL"PACR_R10™ 000177 RG 
LIBSSROUND_R OOO1FF RG 
LIBS$SUB_PACK_R8 00001C9 RG 
LIBSSUNPACK SB_R8 00000248 RG 

LIBSAB_CVTPT_U eeeeeene 
LIBSAB-CVTTP_ “v reeeeeee 
L1IBSsTOP eteneeee 
LIBS_INVARG eererene 
ONE QOOO00IA R 
RADIX 00000000 R 
RADIX _M_1 00000009 R 
uRA 00000131 R 
SS$_NORMAL ererenee 
6 00000011 R 
PSECT name Allocation 
ABS 00000000 
LIBSCODE 000002D9  <¢ 
Phase Page faults CPU 


Initialization $9 
Command processing 107 
Pass 

pyabos table sort 


Symbol table output 4 
Psect synopsis output 

Cross-reference output 
Assembler run totals 384 


The working set Limit was 1050 pages. 


— 

™ 
Sooooooooo 
OooOooooocoeo 


Sooooooooo 


There were 1 
772 source Lines were read in Pass 1, 


PACKED ARITHMETIC 


“ 


11995 bytes (24 pages) of virtual memory were used to buffer 

pages of symbol table me Bi iecesed = hold 2 
produci ng 9 ob 

0 pages of virtual memory were used to define 0 ma 


1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
4 
0 
00 
00 
00 
01 
01 
01 
01 
00 
01 
foe wr ae Swe Ee + 
! Psect synopsis ! 
on 
PSECT No. Attributes 
0.) 00 ¢ OO.) NOPIC USR 
729.) O1¢ 1.) PIC USR 
pam annr ew ome menor omen ewe ee 
: Performance indicators ! 
ime Elapsed Time 
9-9 00:00:02.09 
0.31 00:00:04.98 
1.05 00:00:02.86 
00.01 00:00:00.16 
at 00:00: 90 
8°07 96:00:00:01 
9-90 Be 0.00 
34 0:00:16.20 


ect records in Pass 
cros. 


he intermediate 
non-local ane 2 


CON 
CON 


ABS 
REL 
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LCL 
LCL 


a NOEXE NORD NOWRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC BYTE 


oe 
local symbols. 


row 


| 
el 
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! Macro Library statistics ! 


Fewer oocooreeeseeoeooeoooeoe$} 
Macro Library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
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SCIBPKARIT. MAR; 1 
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